home *** CD-ROM | disk | FTP | other *** search
/ PC-SIG: World of Education / PC-SiG's World of Education.iso / run / 2602 / diffgrid.alg < prev    next >
Text File  |  1990-01-27  |  1KB  |  41 lines
  1. { DIFFGRID - plots a polynomial using different coordinate systems.
  2.              Must have START value greater than 0 for log-log plot
  3.              and resulting polynomial values greater than 0 for
  4.              the polar-logarithmic,log-log, and semilog plots. }
  5.  
  6.                 { set processing span }
  7. start = 1;   step = 3;   dur = 1999;
  8.  
  9. a0 = 10;        { set polynomial coefficents }
  10. a1 = 3;
  11. a2 = 5;
  12.                 { set main label for plots }
  13. label = "Same polynomial plotted using different coordinate systems";
  14.  
  15.                 { create polynomial file and autoscale }
  16. poly = a0 + a1*t + a2*t*t & scaley(poly);
  17.  
  18. grid = none;   { plot on nominal grid without tics }
  19. plot(poly);
  20. pause;
  21.  
  22. grid = polar;   { plot on polar grid }
  23. erase;
  24. plot(poly);
  25. pause;
  26.  
  27. grid = polog;   { plot on polar-logarithmic grid }
  28. erase;
  29. plot(poly);
  30. pause;
  31.  
  32. grid = semilog; { plot on semilog grid }
  33. erase;
  34. plot(poly);
  35. pause;
  36.  
  37. grid = log.log; { plot on log-log grid }
  38. erase;
  39. plot(poly);
  40.  
  41.